object frmRoutineEditor: TfrmRoutineEditor
  Left = 0
  Top = 0
  Width = 700
  Height = 500
  TabOrder = 0
  DesignSize = (
    700
    500)
  object lblSQLcode: TLabel
    AlignWithMargins = True
    Left = 3
    Top = 183
    Width = 694
    Height = 13
    Align = alTop
    Caption = 'Routine body:'
    FocusControl = SynMemoBody
  end
  object lblDisabledWhy: TLabel
    Left = 256
    Top = 476
    Width = 177
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'You have no privilege to this routine.'
    Visible = False
  end
  object spltTop: TSplitter
    Left = 0
    Top = 172
    Width = 700
    Height = 8
    Cursor = crSizeNS
    Align = alTop
    ResizeStyle = rsUpdate
  end
  object btnSave: TButton
    Left = 165
    Top = 471
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'Save'
    Default = True
    TabOrder = 4
    OnClick = btnSaveClick
  end
  object btnDiscard: TButton
    Left = 84
    Top = 471
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'Discard'
    ModalResult = 2
    TabOrder = 3
    OnClick = btnDiscardClick
  end
  object btnHelp: TButton
    Left = 3
    Top = 471
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'Help'
    TabOrder = 2
    OnClick = btnHelpClick
  end
  object SynMemoBody: TSynMemo
    AlignWithMargins = True
    Left = 3
    Top = 202
    Width = 694
    Height = 258
    Margins.Bottom = 40
    SingleLineMode = False
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    TabOrder = 1
    OnDragDrop = SynMemoBodyDragDrop
    OnDragOver = SynMemoBodyDragOver
    CodeFolding.GutterShapeSize = 11
    CodeFolding.CollapsedLineColor = clGrayText
    CodeFolding.FolderBarLinesColor = clGrayText
    CodeFolding.IndentGuidesColor = clGray
    CodeFolding.IndentGuides = True
    CodeFolding.ShowCollapsedLine = False
    CodeFolding.ShowHintMark = True
    UseCodeFolding = False
    Gutter.AutoSize = True
    Gutter.DigitCount = 2
    Gutter.Font.Charset = DEFAULT_CHARSET
    Gutter.Font.Color = clWindowText
    Gutter.Font.Height = -11
    Gutter.Font.Name = 'Courier New'
    Gutter.Font.Style = []
    Gutter.LeftOffset = 2
    Gutter.ShowLineNumbers = True
    Highlighter = MainForm.SynSQLSynUsed
    Lines.Strings = (
      'SynMemoBody')
    RightEdge = 0
    TabWidth = 3
    WantTabs = True
    OnChange = Modification
    FontSmoothing = fsmNone
    RemovedKeystrokes = <
      item
        Command = ecDeleteLine
        ShortCut = 16473
      end>
    AddedKeystrokes = <
      item
        Command = ecRedo
        ShortCut = 16473
      end>
  end
  object PageControlMain: TPageControl
    AlignWithMargins = True
    Left = 3
    Top = 3
    Width = 694
    Height = 166
    ActivePage = tabOptions
    Align = alTop
    Constraints.MinHeight = 166
    Images = MainForm.VirtualImageListMain
    TabOrder = 0
    OnChange = PageControlMainChange
    object tabOptions: TTabSheet
      Caption = 'Options'
      ImageIndex = 39
      ImageName = 'icons8-support'
      DesignSize = (
        686
        137)
      object lblName: TLabel
        Left = 3
        Top = 11
        Width = 31
        Height = 13
        Caption = '&Name:'
        FocusControl = editName
      end
      object lblType: TLabel
        Left = 3
        Top = 65
        Width = 28
        Height = 13
        Caption = '&Type:'
        FocusControl = comboType
      end
      object lblReturns: TLabel
        Left = 3
        Top = 90
        Width = 42
        Height = 13
        Caption = '&Returns:'
        FocusControl = comboReturns
      end
      object lblSQL: TLabel
        Left = 408
        Top = 65
        Width = 62
        Height = 13
        Caption = '&Data access:'
        FocusControl = comboDataAccess
      end
      object lblSecurity: TLabel
        Left = 408
        Top = 90
        Width = 65
        Height = 13
        Caption = 'SQL Se&curity:'
        FocusControl = comboSecurity
      end
      object lblComment: TLabel
        Left = 3
        Top = 38
        Width = 49
        Height = 13
        Caption = '&Comment:'
        FocusControl = editComment
      end
      object lblDefiner: TLabel
        Left = 408
        Top = 11
        Width = 39
        Height = 13
        Caption = 'De&finer:'
      end
      object chkDeterministic: TCheckBox
        Left = 84
        Top = 114
        Width = 602
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = '&Deterministic'
        TabOrder = 7
        OnClick = Modification
      end
      object editComment: TEdit
        Left = 84
        Top = 35
        Width = 599
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 2
        Text = 'editComment'
        OnChange = Modification
      end
      object comboSecurity: TComboBox
        Left = 489
        Top = 87
        Width = 194
        Height = 21
        Style = csDropDownList
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 6
        OnChange = Modification
      end
      object comboDataAccess: TComboBox
        Left = 489
        Top = 62
        Width = 194
        Height = 21
        Style = csDropDownList
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 5
        OnChange = Modification
      end
      object comboReturns: TComboBox
        Left = 84
        Top = 87
        Width = 310
        Height = 21
        TabOrder = 4
        Text = 'comboReturns'
        OnChange = Modification
      end
      object comboType: TComboBox
        Left = 84
        Top = 62
        Width = 310
        Height = 21
        Style = csDropDownList
        TabOrder = 3
        OnSelect = comboTypeSelect
      end
      object editName: TEdit
        Left = 84
        Top = 8
        Width = 310
        Height = 21
        TabOrder = 0
        Text = 'editName'
        TextHint = 'Enter routine name'
        OnChange = Modification
      end
      object comboDefiner: TComboBox
        Left = 489
        Top = 8
        Width = 194
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 1
        Text = 'comboDefiner'
        OnChange = Modification
        OnDropDown = comboDefinerDropDown
      end
    end
    object tabParameters: TTabSheet
      Caption = 'Parameters'
      ImageIndex = 122
      ImageName = 'icons8-refresh'
      object listParameters: TVirtualStringTree
        Left = 82
        Top = 0
        Width = 604
        Height = 137
        Align = alClient
        DragImageKind = diMainColumnOnly
        DragMode = dmAutomatic
        DragType = dtVCL
        EditDelay = 0
        Header.AutoSizeIndex = 1
        Header.MainColumn = 1
        Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
        Header.PopupMenu = MainForm.popupListHeader
        Images = MainForm.VirtualImageListMain
        NodeDataSize = 0
        TabOrder = 0
        TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
        TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseExplorerTheme]
        TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect]
        OnBeforePaint = listParametersBeforePaint
        OnCreateEditor = listParametersCreateEditor
        OnEditing = listParametersEditing
        OnFocusChanged = listParametersFocusChanged
        OnGetText = listParametersGetText
        OnPaintText = listParametersPaintText
        OnGetImageIndex = listParametersGetImageIndex
        OnNewText = listParametersNewText
        Touch.InteractiveGestures = [igPan, igPressAndTap]
        Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
        Columns = <
          item
            Position = 0
            Text = '#'
          end
          item
            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
            Position = 1
            Text = 'Name'
            Width = 390
          end
          item
            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
            Position = 2
            Text = 'Datatype'
            Width = 90
          end
          item
            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
            Position = 3
            Text = 'Context'
            Width = 70
          end>
      end
      object tlbParameters: TToolBar
        Left = 0
        Top = 0
        Width = 82
        Height = 137
        Align = alLeft
        AutoSize = True
        ButtonWidth = 82
        Caption = 'tlbParameters'
        Images = MainForm.VirtualImageListMain
        List = True
        ShowCaptions = True
        TabOrder = 1
        object btnAddParam: TToolButton
          Left = 0
          Top = 0
          Caption = 'Add'
          ImageIndex = 45
          ImageName = 'icons8-add'
          Wrap = True
          OnClick = btnAddParamClick
        end
        object btnRemoveParam: TToolButton
          Left = 0
          Top = 22
          Caption = 'Remove'
          Enabled = False
          ImageIndex = 46
          ImageName = 'icons8-delete-button'
          Wrap = True
          OnClick = btnRemoveParamClick
        end
        object btnClearParams: TToolButton
          Left = 0
          Top = 44
          Caption = 'Clear'
          ImageIndex = 26
          ImageName = 'icons8-close-button'
          Wrap = True
          OnClick = btnClearParamsClick
        end
        object btnMoveUpParam: TToolButton
          Left = 0
          Top = 66
          Caption = 'Move up'
          Enabled = False
          ImageIndex = 74
          ImageName = 'icons8-sort-up'
          Wrap = True
          OnClick = btnMoveParamClick
        end
        object btnMoveDownParam: TToolButton
          Left = 0
          Top = 88
          Caption = 'Move down'
          Enabled = False
          ImageIndex = 75
          ImageName = 'icons8-caret-arrowhead-facing-down'
          OnClick = btnMoveParamClick
        end
      end
    end
    object tabCreateCode: TTabSheet
      Caption = 'CREATE code'
      ImageIndex = 119
      ImageName = 'icons8-source-code-other'
      object SynMemoCREATEcode: TSynMemo
        Left = 0
        Top = 0
        Width = 686
        Height = 137
        SingleLineMode = False
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        TabOrder = 0
        CodeFolding.GutterShapeSize = 11
        CodeFolding.CollapsedLineColor = clGrayText
        CodeFolding.FolderBarLinesColor = clGrayText
        CodeFolding.IndentGuidesColor = clGray
        CodeFolding.IndentGuides = True
        CodeFolding.ShowCollapsedLine = False
        CodeFolding.ShowHintMark = True
        UseCodeFolding = False
        Gutter.Font.Charset = DEFAULT_CHARSET
        Gutter.Font.Color = clWindowText
        Gutter.Font.Height = -11
        Gutter.Font.Name = 'Courier New'
        Gutter.Font.Style = []
        Highlighter = MainForm.SynSQLSynUsed
        Lines.Strings = (
          'SynMemoCREATEcode')
        ReadOnly = True
        FontSmoothing = fsmNone
      end
    end
  end
  object btnRunProc: TButton
    Left = 533
    Top = 471
    Width = 164
    Height = 25
    Action = MainForm.actRunRoutines
    Anchors = [akRight, akBottom]
    Images = MainForm.VirtualImageListMain
    TabOrder = 5
  end
end
